home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / spiele / thrust / source / timer.mod < prev   
Text File  |  1996-01-30  |  345b  |  25 lines

  1. MODULE Timer;
  2.  
  3. IMPORT XBIOS;
  4.  
  5. VAR Time : POINTER TO RECORD Hz200 : LONGINT END;
  6.     GlobTime : LONGINT;
  7.  
  8. (*$-K Kein Stackcheck *)
  9. PROCEDURE Get2();
  10. BEGIN
  11.   GlobTime := Time.Hz200;
  12. END Get2;
  13. (*$=K *)
  14.  
  15. PROCEDURE Get* () : LONGINT;
  16. BEGIN
  17.   XBIOS.Supexec(Get2);
  18.   RETURN GlobTime;
  19. END Get;
  20.  
  21. BEGIN
  22.   Time := 4BAH;
  23. END Timer.
  24.  
  25.